home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 5-Fonts & Software / Demo Software / Wingz / Scripts / lc (.txt) < prev    next >
Wingz Script  |  1989-02-08  |  4KB  |  116 lines
  1. WNGZWZSC01b1d
  2. Enter amount of Loan in dollars
  3. %Enter annual interest rate in percent
  4. Enter term of loan in months
  5. Enter monthly payment
  6. ?You must enter at least 3 numbers to calculate a fourth number!
  7. input
  8. amount
  9. dgask
  10. pymnt
  11. total
  12. input
  13. amount
  14. pymnt
  15. total
  16. intrst
  17. calculateP
  18. define input, amount, int, pymnt, term, total
  19. function amt()
  20.     if lc:input = 0
  21.         lc:amount = "0"
  22.     else    
  23.         lc:amount = round(c11,0)    
  24.         lc:amount = dg:dgask("Enter amount of Loan in dollars",lc:amount,15)
  25.         repaint off
  26.         put value(lc:amount) into c11
  27.         repaint on
  28.         repaint range c11
  29.         unselect
  30.     end if
  31. end function
  32. function intrst()
  33.     if lc:input = 0
  34.         lc:int = "0"
  35.     else    
  36.         lc:int = string(c13*100.0,3) 
  37.         lc:int = dg:dgask("Enter annual interest rate in percent",lc:int,6)
  38.         repaint off
  39.         put value(lc:int)/100.0 into c13
  40.         repaint on
  41.         repaint range c13
  42.         unselect
  43.     end if
  44. end function
  45. function trm()
  46.     if lc:input = 0
  47.         lc:term = "0"
  48.     else    
  49.         lc:term = string(c15,0)    
  50.         lc:term = dg:dgask("Enter term of loan in months",lc:term,6)
  51.         repaint off
  52.         put value(lc:term) into c15
  53.         repaint on
  54.         repaint range c15
  55.         end if
  56.     unselect
  57. end function
  58. function pymt()
  59.     if lc:input = 0
  60.         lc:pymnt = "0"
  61.     else    
  62.         lc:pymnt = string(c17,2)
  63.         lc:pymnt = dg:dgask("Enter monthly payment",lc:pymnt,10)
  64.         repaint off
  65.         put value(lc:pymnt) into c17
  66.         repaint on
  67.         repaint range c17
  68.         unselect
  69.     end if
  70. end function
  71. function calculate()
  72. define n
  73. lc:total = 0
  74. if c11 > 0
  75.     lc:total = lc:total + 1
  76. end if
  77. if c13 > 0
  78.     lc:total = lc:total + 1
  79. end if
  80. if c15 > 0
  81.     lc:total = lc:total + 1
  82. end if
  83. if c17 > 0
  84.     lc:total = lc:total + 1
  85. end if
  86. if lc:total < 3
  87.     message "You must enter at least 3 numbers to calculate a fourth number!"
  88. elseif (c11>0) and (c13>0) and (c15>0) and (isnumber(c17)=0 or c17 =0)
  89.     repaint off
  90.     put pmt(c11,c13/12,c15) into c17
  91.     select range c17
  92.     repaint on
  93.     repaint range c17
  94.     unselect
  95. elseif (c11>0) and (c13>0) and (c17>0) and (isnumber(c15)=0 or c15=0)
  96.     repaint off
  97.     put loanterm(c11,c17,c13/12) into c15
  98.     select range c15
  99.     repaint on
  100.     repaint range c15
  101.     unselect
  102. elseif (c11>0) and (c15>0) and (c17>0) and (isnumber(c13)=0 or c13=0)
  103.     repaint off
  104.     put interest(c11,c17,c15)*12 into c13
  105.     repaint on
  106.     repaint range c13
  107.     unselect
  108. elseif (c13>0) and (c15>0) and (c17>0) and (isnumber(c11)=0 or c11=0)
  109.     repaint off
  110.     put principal(c17,c13/12,c15) into c11
  111.     repaint on
  112.     repaint range c11
  113.     unselect
  114. end if
  115. end function {calculate}
  116.